home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DEM / D-H / Effects Specialist.sea / EffectsSpecialistDemo™.rsrc / FYps_10043_Hot Dog < prev    next >
Text File  |  1991-06-19  |  1KB  |  32 lines
  1. %! HOT DOG 2.0
  2. %% ©1986-1991, Postcraft International, Inc., All Rights Reserved
  3. %% 91/02/24 Designed by Paul McLellan
  4. %% For use only in files created by Effects Specialist
  5. /InsideShade {Intrnals0} def
  6. /OutsideShade {Intrnals1} def
  7. /SplitWeight Intrnals2 def
  8. %%
  9. /clipBox { Width  Height 2 div rBox clip } def
  10. pop kP Intrnals3
  11.   /MaxY /MaxX /MinY /MinX FXText BBproc /MaxX MaxX KernNet add def
  12.   /CMaxY /CMaxX /CMinY /CMinX ClipStrg BBproc
  13.   /Width MaxX MinX sub def /Height MaxY MinY sub def
  14.   /Frac 1 SplitWeight sub 1 div def
  15.   /AHalf Height Frac mul 2 div def
  16. gsave %% show top half
  17.   0 MaxY translate 1 Frac scale
  18.   newpath MinX Height -2 div moveto clipBox
  19.   OutsideShade  0 MaxY neg  kH
  20. grestore
  21. gsave %% show bottom half
  22.   0 MinY translate 1 Frac scale
  23.   newpath MinX 0 moveto clipBox
  24.   OutsideShade  0 MinY neg  kH
  25. grestore
  26. gsave %% show clip text
  27.   MinX AHalf MinY add translate 0 0 moveto
  28.   Width CMaxX CMinX sub div  Height SplitWeight mul CMaxY CMinY sub div scale
  29.   CMinX neg CMinY neg translate newpath 0 0 moveto
  30.   InsideShade SMG {ClipStrg show} if
  31. grestore
  32.